/***************************************************************************/
/* Procedimiento:  ArchivosInsertar
/* Descripcion:   Insertar una fila en la tabla ediv2.Archivos
/* Parametros:    ?InfoParametros
/*                pTransaccion. Numero identificador de la Transaccion
/*                pMensaje. Mensaje de comfirmacion o excepcion
/* Comentarios:         
/****************************************************************************/

PROCEDURE  ArchivosInsertar(parchivo CLOB, pnombre VARCHAR2, 
						pdescripcion VARCHAR2, plongitud NUMBER, pconstanciaExpediente NUMBER, 
						ptransporte NUMBER, ppreAlta NUMBER, pnidDocumento NUMBER, 
						pnidTipoDeArchivo NUMBER, phash VARCHAR2, pfCreacion VARCHAR2, 
						pubicacionFileSystem VARCHAR2, pnidTipoDocumento NUMBER, pTransaccion OUT NUMBER, pMensaje OUT VARCHAR2)
AS
BEGIN
  INSERT INTO ediv2.Archivos(nid, archivo, nombre, 
						descripcion, longitud, constanciaExpediente, 
						transporte, preAlta, nidDocumento, 
						nidTipoDeArchivo, hash, fCreacion, 
						ubicacionFileSystem, nidTipoDocumento)
  VALUES               (seq_Archivos.nextval, parchivo, pnombre, 
						pdescripcion, plongitud, pconstanciaExpediente, 
						ptransporte, ppreAlta, pnidDocumento, 
						pnidTipoDeArchivo, phash, to_date(pfCreacion,'DD/MM/YYYY HH24:MI:SS'), 
						pubicacionFileSystem, pnidTipoDocumento);
  
  COMMIT;
  pTransaccion := 1;
  pMensaje := 'Terminado OK';
  dbms_output.put_line('Terminado OK');

EXCEPTION
  WHEN OTHERS THEN
    pTransaccion := 0;
    pMensaje := 'Error en  Archivos_Insertar:' || SQLCODE || ' Mensaje: ' || sqlerrm;
    dbms_output.put_line('Error en  Archivos_Insertar:' || SQLCODE || ' Mensaje: ' || sqlerrm);
END;
